home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / logb.lst < prev    next >
File List  |  1991-09-17  |  697b  |  18 lines
  1. Voyager-generated listing of LOGB by Paul Dale.
  2. Method: LOG of A (base B) is calculated as LN(A)/LN(B),
  3.         using the internal 15-digit-accurate routines.
  4.  
  5. 02D9D  ::
  6. 18EDF    CK2&Dispatch   *  Save current command, verify DEPTH ≥ 2, check args.
  7. 04099    REALREAL       *  2:Real,1:Real
  8. 02D9D    ::
  9. 2A5C1      %>%%         *  Converts real to extended real
  10. 2AB5B      %%LN         *  Extended-real ln(x)
  11. 03223      SWAP         *  ob1 ob2 --> ob2 ob1
  12. 2A5C1      %>%%         *  Converts real to extended real
  13. 2AB5B      %%LN         *  Extended-real ln(x)
  14. 2A9E8      %%/          *  Extended-real /
  15. 2A5B0      %%>%         *  Converts extended real to real
  16. 0312B    ;
  17. 0312B  ;
  18.